home *** CD-ROM | disk | FTP | other *** search
/ El Mac 7 / El Mac 7.iso / De la revista / Ghostscript / files / gs_type0.ps < prev    next >
Encoding:
Text File  |  1994-04-25  |  1.6 KB  |  46 lines  |  [TEXT/gsVR]
  1. %    Copyright (C) 1992, 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for composite font facilities.
  19. % When this is run, systemdict is still writable.
  20.  
  21. % Define findencoding.
  22. % (cshow, rootfont, and setcachedevice2 are real operators.)
  23. % .encodingdict is defined and initialized in gs_init.ps.
  24. % .findencoding is defined in gs_init.ps.
  25. /findencoding { .findencoding } odef
  26.  
  27. % Redefine the setcachedevice step of Type1BuildChar
  28. % so that it takes Metrics2 and CDevProc into account.
  29. /setcache_C        % <charname> <wx> <wy> <llx> <lly> <urx> <ury>
  30.             %   setcache_C -
  31.  { currentdict /Metrics2 .knownget
  32.     { 7 index .knownget
  33.        { aload pop }
  34.        { 5 index 5 index 0 0 }
  35.       ifelse
  36.     }
  37.     { 5 index 5 index 0 0
  38.     }
  39.    ifelse
  40.    currentdict /CDevProc .knownget
  41.     { 12 -1 roll exch exec }
  42.     { 11 -1 roll pop }
  43.    ifelse
  44.    setcachedevice2
  45.  } bind def
  46.